path = createobject("Scripting.FileSystemObject").GetFolder(".").Path
Wscript.echo path
path = path&"\checkpower.bat"
Set objWsh = CreateObject("WScript.Shell")
objWsh.Run path,1,False
Set objWsh = Nothing 